<%@Page Language="VB" %>
<html>
<head>
<!-- #include file="style.inc" -->
</head>
<body>
<!--------------------------------------------------------------------------->
<span class="heading">The HTML Control ServerClick Event</span><p />

<form runat="server">

  <input id="MyButton" type="button" value="My Button"
         onserverclick="MyCode" runat="server" /> <br/><br/>

  <input id="MySubmitButton" type="submit" value="My Submit Button"
         onserverclick="MyCode" runat="server" /> <br/><br/>

  <input id="MyImageButton" type="image" src="ClickmeButton.gif" align="absbottom"
         onserverclick="MyImageCode" runat="server" />

</form>
<div id="divResult" runat="server" enableviewstate="false" />
<script runat="server">
   Sub MyCode(objSender As Object, objArgs As EventArgs)
     divResult.InnerHtml += "ServerClick event detected in control '" 
      divResult.InnerHtml += objSender.ID & "'<br />"
   End Sub

   Sub MyImageCode(objSender As Object, objArgs As ImageClickEventArgs)
     divResult.InnerHtml += "ServerClick event detected in control '" 
     divResult.InnerHtml += objSender.ID & "' at X=" & objArgs.X 
     divResult.InnerHtml += " Y=" & objArgs.Y & "<br />"
   End Sub
</script>

<!--------------------------------------------------------------------------->
<!-- #include file="foot.inc" -->
</body>
</html>

